module savemod
	implicit none
	integer, save:: a
end module

subroutine t1()
	use savemod
	implicit none
	external :: t2
	a = 3
	call t2()
	print *, a
end subroutine

subroutine t2()
	use savemod
	implicit none
	a = 2
end subroutine


program tstsave
	implicit none
	call t1()
	stop
end program

